sub samcoupepaletteout(clv as ubyte, vlv as ubyte):
  out (clv*256)bor 248,vlv
  end sub
